home *** CD-ROM | disk | FTP | other *** search
/ By Popular Request 2.0 / By Popular Request 2.0 (Arsenal Computer).ISO / amiga_3 / ezbbs221.lha / c / NuucpList.all < prev    next >
Text File  |  1995-03-23  |  3KB  |  68 lines
  1. .BRA {
  2. .KET }
  3.  
  4. ; Create directory listing for Anonymous UUCP.
  5. ; Don't show groups, secret areas and uninteresting things.
  6. ;
  7. ; We need two files.  One which shows all files we have,
  8. ; and one which shows only files of the last (for example) 10 days.
  9. ;
  10. ; Optionally, we generate a third listing with new files of the
  11. ; last 24 hours. This is useful for posting it to a network.
  12.  
  13.  
  14. Copy UUPUB:readme.1st t:anon-list.1day     CLONE QUIET >nil:
  15. Copy UUPUB:readme.1st t:anon-list.index    CLONE QUIET >nil:
  16. Copy UUPUB:readme.1st t:anon-list.index_xp CLONE QUIET >nil:
  17. Copy UUPUB:readme.1st t:anon-list.recent   CLONE QUIET >nil:
  18.  
  19. MB:C/NuucpList.one "Amiga/Audio"
  20. MB:C/NuucpList.one "Amiga/CD-ROM"
  21. MB:C/NuucpList.one "Amiga/Comm"
  22. MB:C/NuucpList.one "Amiga/Gfx"
  23. MB:C/NuucpList.one "Amiga/Internet"
  24. MB:C/NuucpList.one "Amiga/Misc"
  25. MB:C/NuucpList.one "Amiga/Packer"
  26. MB:C/NuucpList.one "Amiga/Text"
  27. MB:C/NuucpList.one "Amiga/UUCP"
  28. MB:C/NuucpList.one "Pictures/Misc"
  29. ;MB:C/NuucpList.one "Pictures/GIF"
  30. ;MB:C/NuucpList.one "Pictures/IFF"
  31. ;MB:C/NuucpList.one "Pictures/JPG"
  32. MB:C/NuucpList.one "Sound/Misc"
  33. MB:C/NuucpList.one "Sound/Modules"
  34. MB:C/NuucpList.one "System/EazyBBS"
  35. MB:C/NuucpList.one "Text/Misc"
  36.  
  37. Copy t:anon-list.index    UUPUB:index    CLONE QUIET >nil:
  38. Copy t:anon-list.index_xp UUPUB:index_xp CLONE QUIET >nil:
  39. Copy t:anon-list.recent   UUPUB:recent   CLONE QUIET >nil:
  40.  
  41. ; GZip is a very cool file compression utility.
  42. ; Available under GNU license.
  43.  
  44. gzip -9 -c UUPUB:index    >UUPUB:index.gz
  45. gzip -9 -c UUPUB:index_xp >UUPUB:index_xp.gz
  46. gzip -9 -c UUPUB:recent   >UUPUB:recent.gz
  47.  
  48. ; Post listing of last 24 hours (only if new files are available).
  49.  
  50. MB:C/Cmp UUPUB:readme.1st t:anon-list.1day >NIL:
  51. If WARN
  52.     ;Set currentdate `Date`
  53.     Date >t:anon-list.1day_date
  54.     Set currentdate `awk '{printf("%.3s %s %.5s\n",$1,$2,$3)}' <t:anon-list.1day_date`
  55.     Delete t:anon-list.1day_date QUIET
  56.     Echo "Subject: new files on ZikZak, ${currentdate}" >t:anon-list.1day_post
  57.     Echo "From: root@zikzak.in-berlin.de (ZikZak Archive)" >>t:anon-list.1day_post
  58.     Echo "Newsgroups: eazy.lists" >>t:anon-list.1day_post
  59.     Echo "Followup-To: eazy.uucp" >>t:anon-list.1day_post
  60.     Echo "*N" NOLINE >>t:anon-list.1day_post
  61.     Type t:anon-list.1day >>t:anon-list.1day_post
  62.     inews -h -W <t:anon-list.1day_post
  63.     ;inews -h -W -f "root@zikzak.in-berlin.de (ZikZak Archive)" -t "New files on ZikZak, ${currentdate}" -n eazy.lists <t:anon-list.1day
  64. EndIf
  65.  
  66. Delete t:anon-list.index t:anon-list.index_xp t:anon-list.recent t:anon-list.1day QUIET
  67.  
  68.